home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 10-18.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  761 b   |  46 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM ArrowWhite AS STRING*21
  6. DIM ArrowBlack AS STRING*12
  7.  
  8. REM ArrowWhite
  9. DATA &h00,&h0C,&h00, &h00,&h0F,&h00, &hFF,&hFC,&hC0
  10. DATA &hC0,&h00,&h30, &hFF,&hFC,&hC0, &h00,&h0F,&h00
  11. DATA &h00,&h0C,&h00
  12.  
  13. REM ArrowBlack
  14. DATA 6,1,9,2,2,9,1,19,7,2,8,1
  15.  
  16. IF FGtestmode(4,1) = 0 THEN
  17.    PRINT "This program requires a 320 x 200 CGA graphics mode."
  18.    STOP
  19. END IF
  20.  
  21. FOR I = 1 TO 21
  22.    READ Item
  23.    MID$(ArrowWhite,I) = CHR$(Item)
  24. NEXT
  25.  
  26. FOR I = 1 TO 12
  27.    READ Item
  28.    MID$(ArrowBlack,I) = CHR$(Item)
  29. NEXT
  30.  
  31. OldMode = FGgetmode
  32. FGsetmode 4
  33.  
  34. FGsetcolor 2
  35. FGrect 0, 319, 0, 199
  36.  
  37. FGmove 10, 10
  38. FGdrawmask ArrowBlack, 12, 10
  39. FGdrwimage ArrowWhite, 3, 7
  40. FGwaitkey
  41.  
  42. FGsetmode OldMode
  43. FGreset
  44.  
  45. END
  46.